home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Especial Multimedia
/
Especial Multimedia.iso
/
Multimed
/
Prg
/
XWING.ZIP
/
XDEFS.BAS
< prev
next >
Wrap
BASIC Source File
|
1997-09-14
|
2KB
|
53 lines
''''''''''''''''''''''''''''''''''''''
''' xWinG Action Property Values
''''''''''''''''''''''''''''''''''''''
''''' bitmap actions
Global Const XW_LOAD = 1 ''' load the image from a file
Global Const XW_ERASE = 2
Global Const XW_RESERVE = 3 ''' reserve a palette index
Global Const XW_SYNC = 4 ''' match the WinG color table to the palette
Global Const XW_WIPE = 5 ''' start a transition
''''' buffer actions
Global Const XW_LOADBUFFER = 6 ''' load the buffer from a file
Global Const XW_CLEARBUFFER = 7 ''' release the buffer memory
Global Const XW_PASTERECT = 8 ''' copy the buffer rectangle to the image
Global Const XW_TRANSRECT = 9 ''' copy the buffer rectangle to the image with transparency
Global Const XW_SETBUFFER = 10 ''' copy the image pixels to the buffer
'''' form size action
Global Const XW_SIZEFORM = 11 ''' Not Done
''''' hotspot actions
Global Const XW_HOTSPOT = 12 ''' create a hotspot
Global Const XW_NOSPOTS = 13 ''' delete all hotspots
Global Const XW_ENABLE = 14 ''' enable a hotspot
Global Const XW_DISABLE = 15 ''' disable a hotspot
Global Const XW_HALFTONE = 16 ''' create a WinG halftone palette
'''''''''''''''''''''''''''''''''''''
'' xDib Functions
'''''''''''''''''''''''''''''''''''''
Declare Sub ReadDib Lib "XDIB" (xDib As Control)
Declare Sub WriteDib Lib "XDIB" (xDib As Control)
Declare Sub WriteRle Lib "XDIB" (xDib As Control)
Declare Sub FreeDib Lib "XDIB" (xDib As Control)
Declare Sub MakeDib Lib "XDIB" (xDib As Control, ByVal Wide As Integer, ByVal High As Integer, ByVal init As Integer)
Declare Sub PasteDib Lib "XDIB" (xDib As Control, ByVal X As Integer, ByVal Y As Integer)
Declare Sub CopySelection Lib "XDIB" (xFrom As Control, xTo As Control)
Declare Sub Dither Lib "XDIB" (xDib As Control, Ignore() As Integer, ByVal hPalette As Integer, ByVal ErrLev As Integer)
Declare Sub Remap Lib "XDIB" (xDib As Control, Ignore() As Integer, ByVal hPalette As Integer)
Declare Sub Optimize Lib "XDIB" (xDib As Control, ByVal Colors As Integer)
Declare Sub GetRGB Lib "XPAL" (ByVal Color As Long, red As Integer, green As Integer, blue As Integer)
'Declare Sub GetRGB Lib "XDIB" (ByVal Color As Long, red As Integer, green As Integer, blue As Integer)
Declare Sub TopMost Lib "XPAL" (ByVal hWnd As Integer, ByVal bool As Integer)
'Declare Sub TopMost Lib "XDIB" (ByVal hWnd As Integer, ByVal bool As Integer)